home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 08 / 5 / DISK0859.ZIP / MAC / DEMOMAC2.DAT < prev    next >
Text File  |  1987-12-22  |  462b  |  17 lines
  1. DEMOMAC2 BEGIN
  2.          WTO   'DEMOMAC2 COPY DEMOMAC2.DAT TO DEMOMAC2.TST'
  3.          OPEN SYSUT1
  4.          OPEN SYSUT2
  5. LOOP     GET  SYSUT1,RECORD
  6.          PUT  SYSUT2,RECORD
  7.          B    LOOP
  8. EOJ      CLOSE SYSUT1
  9.          CLOSE SYSUT2
  10.          RETURN
  11. RECORD   DS   XL256
  12. SYSUT1   DCB  LRECL=1,RECFM=T,MACRF=G,EODAD=EOJ,
  13.               DDNAME='DEMOMAC2.DAT'
  14. SYSUT2   DCB  LRECL=1,RECFM=T,MACRF=P,
  15.               DDNAME='DEMOMAC2.TST'
  16.          END
  17.